EEE 
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Sy 
Ll 
Ll 
Ll 
Ll 
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Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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LLLLLLLLLLLLLLL | 
| 
| 
| 


SS 


eeF ]LE*e]DeeOTSCVTRT 


| el gual geal eel el al cel geal geal eel el ol al 
el el cee el eed eel el oe el el el el 
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T RRRRRRRR 
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aed 
len 
keel 
>>>>>>>>>> 
>>>>>>>>>> 
>> 
>> 
Pad 
>> 
>> 
>> 
>>>>>>>>>> 
>>o>>>>>>>> 
Vv ete 
VY are 
vv ae 
vv aa 
ow Vw 
Vw hs ow 
vv baa 
vv wu 


VWLYVVYVOVYVYUUW 
VWUVUUYUYUUYU 


own ONNwW 

nw WNNM 

nw nw nw 

nn om an 

nn nn nn 

nn nn nw 

ann nn ann 

nw mw nw 
NNNNM own 
YNNNN on 

be 

ioe 

oo 

eee 

ee es 

oo 

bo 

mo 

too 
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nw MMMM 
nw nw nw 
nw nw nw 
nw nw nw 
nw ww nw 
nw nw nn 
nn "wn nw 
NNMNM nn 
NAMM nn 
=n os 
oy pan-cane 
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r 
Nt aa Convert G and H to text 


ANDCER = Local condition handler 
A_CVT_TAB_R 


Page 0 


pt. 


1 nl = Kernel Convert real (G and H) to et aes et 1 90: $8: $3 yarly 7S acce 8, Se $0 MAR: 1 Page dy 
“TETLS OISRSCVTRT = Kernel ery real (G and H) to text 
- IDEN File: OTSCVTRT.MAR Edit: LEB1012 


—MPARAAAAAAAALAALAL ALA ALLL AEE E AAR ERE RRR ERRATA ER ERR RE REET EEE EES SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL QuiPHENT Eo EORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESER 


THIS fo “eres I$ FURNISHED UNDER A a es ee AND MAY BE USED AND COP 
one 47 AG eit ge WITH THE TERM SUCH iCEnse AND WITH 
INCLUSI a ' oe COPYRIGHT NOTICE, THIS SOFTWARE OR ANY oree 
COPIES THEREOF AA one oy BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 
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® 
OTHER TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. * 
* 
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® 

or 

® 

we 

® 

® 
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I 
T 


ee ee ee on on eo. 


THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eaeneeneneeeeeeeeeeaeeenenene 


SHASTA TATA AAAAAAATAAAAAAAAAARAARAAAAAAAAAAAAAARAAAAAAAAAAAAAAARAEARAAAAEEE 


Y ene Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


"FACILITY: Language-independent Support Library 
ABSTRACT: 
A routine to convert G and H floating values to a string of 
ASCII digits and an exponent. It is meant to be used as 
a base for floating point output conversion routines. 


ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: Tom Eggers and Steven Lionel, CREATION DATE: 25-Jun-1979 
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al Edit Wistory ee (0 And M) HO Rene TErSER Tobe Vs48:98 Eelante.saciorscvTat.mar;1 2% (By a 


o_o o_o 


2s 


>_> 


SE 


2¢ 


fi 
+ 


>S 


WN OOONOuns 


NR Re ee rn tee ee 


-SBTTL Edit History 


1- = Original Alcor ithe ae enented B by] om Fogers- SBL 25-Jun-1979 
1-002 = Remove STRING r 
1- = Keep sign ineRe tent rounding to Bhan, SBL 16-July-1979 


1-004 - en using RT_RND, if rounding would be to the clang of 
uaver of significant d gits, use the latter. 7ejutys1979 
1-005 - Add om BR for correct processing of reserved operands. 


SBL Manet 
t { @ rocorved erand gets replaced b anosher SBL 29-0ct-81 
ae bug intrody ged b 1008 for Gefloating.  SBL 4-Feb-1982 
dd “'#” fo missing for three years! Sel" Ma + 
Ext trac ct the a: that reci rose gree inter to an item in 
OTs$ A_CVT_TAB te e free SCV L and include ‘t in the 
from OTSCVTRT. This all ous STScvITR and ADACVTNL to call 
OTSSSCVT_MUL in : oA TES Tggrten. It also saves a few u-seconds 
in these calls - 
1-010 = Add a JSB os aly that returns oseseee of OTSSSA_CVT_TAB table. This 
routine will serve the purpose t modules outside the sharable 
inage (LIBRTL) that contains th ; sreut ine will be able to reference 
his table. This routine, ee he ld -A_CVT_TAB_R1, is also 


1-011 = Senovee the CVTLP and CVTPS Be ne id to improve the performance 
of this routine. Instead, EDIV ynete ctions were used. I also 
fix Me some comments JCW 1- 98 

1-012 - Move tables to position after PSECT declaration. LEB 22-Mar-1984 


oO 
p 


H 6 
een sttnath egret vet and wm 68 cone SEE ARH OE ERLaT IMTS See LORE mans "OP 


~SBTTL DECLARATIONS 
; INCLUDE FILES: 

3 EXTERNAL DECLARATIONS: 

t -DSABL GBL 3; Prevent undech ares 


; symbols from bei ng 
3 automatically global. 


+ MACROS: 
SSSDEF 
SCHF DEF 
EQUATED SYMBOLS: 


22:00:0:0:0 Oerwcocpeaco cco 909 WIN 
SEER SSS SSE ASSS. 
7 


PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


: OWN STORAGE: 


; CONSTANTS: 


Me wn— 


ASCII_ZEROES: 
30303030 30303030 iat “QUAD 


1 


*x3030303030303030 :; 8 copies of the character 0 


—~r 
—_ 


VIW 


~ 
oe 


0. 


= 
- 


DEOL OL OF OOF OF OF OFO 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
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se @eeeeseeseesese ee eeseesee &e & & & 
se es eeeeeseeseseeseeseeseeeseess & & & 
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SI RRS I I IP HP HPD 
—_ 
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al DECLARATIONS «+ "Ses “© And H) tO Nene TENSE E Obs $1:18:68 Ectante.skelorscvTRt.mar;1 2% 4) : 


LOCAL_FRAME = CRY + 16 ; SIZE OF DATA AREA TO ALLOCATE ON STACK 


2S 


1 
} ; Stack frame offsets from R7 
155 3;; Common frame for kernel convert routines 
F 1 payee = 8 3; Temp for packed representation 
F 1 FLAGS = PACKED - 4 3 Fags for outer and inner routines 
F 1 § S$IG_DIGITS = FLAGS = 4 3 3 qr ficant digits 
a 1 STRING_ADDR = SIG pici's - 4 3 ress of temp string 
F 1 SIGN = STRING ADDR - 3 Sign 
€ 1 DEC hig = SIGR = 4 3 Decimal exponent 
f 14 OF any = DRESET = 4. ES Blekt vreuné point 
= = s roun n 
e 14 COMMON_FRAME = RT_RND 3 Common frome’ size 
144 
145 ; BINNUM HOLDS THE 4 LONG-WORDS OF 
148 3; THE BINARY FRACTION. IT IS INITIALIZED 
14 3; WITH THE "‘STRAIGHTENED OUT'’ FRACTION 
138 3; BITS FROM THE H-FLOATING NUMBER. 
14 3 BINNUM+0<0> IS THE LEAST SIGNIFICANT BIT 
150 3 BINNUM+12<31> IS THE MOST SIG BIT 
90000000 9009 151 BINNUM = 0 
1 vt 1 § INT = BINNUM + 16 3; INT MUST BE 1ST WORD AFTER THE 4 
D0 1 3; LONGWORDS OF BINNUM. IT IS USED TO CATCH 
154 : THE BINARY FOR THE 9 DECIMAL DIGITS 
000 155 ; WHEN BINNUM IS MULTIPLIED BY 10#*9, 
00000000 0000 156 IF NE, <BINNUM+16-INT> 
4! 1 ERROR 3; INT MUST FOLLOW THE 4 L-WORDS OF BINNUM 
00 : ~ENDC 
ue 
00000014 DC 160 BINEXP = INT + 4 3 THE BINARY EXPONENT. IT IS INITIALIZED 
0000-161 ; FROM THE H-FLOATING EXPONENT. 
60000018 ! 166 PRODF_4 = BINEXP + 4 ; A TEMPORARY FOR HELPING WITH T 
D0 16 3 4x4 get PRECISION MULTIPLY. 
0000-164 ; D NEVER GETS ALL 
00 165 3 THE APPROPRIATE CROSS-PRODUCTS ADDED IN 
i! 196 ; AND IS NOT REALLY PART OF THE RESULT. 
D0 16 3; IT'S HERE BECAUSE ‘EMUL’’ ALWAYS GIVES 
n! 198 3; DOUBLE L-WORD PRODUCTS EVEN WHEN THE LOW 
v0 1 3; WORD ISN'T NEEDED (WANTED). 
0000001C ii in PRODF = PRODF_4 + 4 3 THE 4 LONG-WORDS OF PRODF MUST START 
00 17 ; JUST AFTER PRODF_4 (WHICH IS ALWAYS 
00 17 3; USED AS PRODF-4). 
00000000 D0 17 - IF NE, <PRODF_4+4-PRODF> 
4! 175 ERROR ; PRODF MUST FOLLOW THE L-WORD OF PRODF_4 
0 176 -ENDC 
' 
oooooe2c 178 CRY = PRODF + 16 ; USED FOR A “CARRY SAVE" MULTIPLY. 
‘ 
y 1 
Hi 
182 
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1 
1 


2s 
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2s 


2s 
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So¢ 
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one 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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= Convert G and H to text 
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Convert real (G and H) ‘3 coat 1 mi iets 90: 7: $3 Ar Lyas Be Rae oO. -00 


LIBRTL.SRCJOTSCVTRT MAR; 1 
-SBTTL OTSSSCVT_x_T = Convert G and H to text 


+ 
FUNCTIONAL DESCRIPTION: 


This routine converts a floatin int oe A a strin 
of ASCII digits. it 1s Tatended te tora’ the base of 2 . 
Language'’s floating poin nt output conversion routine. 


CALLING SEQUENCE: 


é 


MOVAB songen frame, R1 : zee common_frame definition above 
MOVL strings address, STRING_ADDR(R1) 

MOVL aig “Bo F 16 DIGITSTRI) 

MOVL user 5inaoss, LABS (R ) 

MOVL ND(R1) 3 Optional 

MOVAB 


JSB vetoes _x_T “R8 

$ cutouts ore: 

3 FFSET(R1) = offse 

; 5 EXP(R1) = py exponent 
sign 


3; x is the datatype, G or H 


after. Ignored if V_ROUND_RIGHT 
is clear. 


PARAMETERS: 
VALUE 3 Ane oda F value to be converted 
SIG_DIGITS(R1) 3; Number of s nificant e its to 
3 generate - neither RUNCATE 
; or VLR Rien? ies ets the 
3; value will” be reundea to this 
3; many digits. 
FLAGS(R1) : Caller supplied yiooas 
V_TRUNCATE = 24 $ pee don't r 
V-ROUND_RIGHT = 25 3 S round "atotts to 
: erence of dec 
RT_RND(R1) 3 ber of places Fo she right 
3; of the decimal point to round 


IMPLICIT INPUTS: 


QUTPUT PARAMETERS: 


out_string String with result. It 


will 
Not have valid digits after the 
req seted number of significant 


net 
UEiAFitsh wdiaitsets/9$e0., 


ffset Tnto Br astrin 
“ ch i first $s sign icant vdigit 
may be $ guarantee 
to be e — 


The signed decimal exponent of 


offset 


exponent 


eaten 


° Kecne 
OTSSSCVT_ 


== 


822 2S 2S 2S SSS 
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2s 


2s 


= 
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Convert real (G and H) to cont 16-$ o- 138% 00:48:83 AX/VMS Macro yore 


xT = Convert G and H to text “SEP- 


; sign 


IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 


out_strin 
This rout 


PEA ADP MAT BPP PELE 


FUN" OQ OONOAUE LP" OOONO 


tn 


LIBRTL.SRCJOTSCVTRT.MAR; 1 
; the value, assuming a radix point 
lanes ately to the left of the 
5 ngst 5 gn icant digit. 
3; <1 if the value is negative 


; 9 if the value is zero 
if the value is positive 


Alters registers RO through R8. 


$S$_ROPRAND - If the value is a reserved operand 
SS$_ACCVIO - or other nasty errors if the length of 


is not enough (see formula above). 
e does not check the length, it 


is up to the caller to insure the correct 
length is present. 


re, 


pe. 
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TSSSCVTRT = Kernel Convert real (G and H) to text 16-SEP-1984 00:28: AX/VMS Macro v04-00 P 
args OTSSSCVE AT RB Me Trea loee fhiiei8s Lelonte cacdorecuTay.mar:1 (2% (by 
D § -SBTTL OTSSSCVT_H_T_R8S 
$e 
. | 3 JSB entry point 
D 71° 
D 72 OTSSSCVT_H_T_RB:: 
57 | dO D 7 Mov.” R11, R7 3; Use R7 as base 
E4 A? 4 p vs rstvaL Weert pet_EXP(R7) : INIT DECIMAL EXPONENT 
51 9 0g 1 -"CVTWL (RO), R1 ; Test for zero and negative 
D 7 BNEQ 10$ 3; Not zero 
0320 dB 4 RW ZERO 3; Is zero 
6 D 79 10$ BLSS WEG VAL H 3; Negative? 
€8 A7 28 E ? VL #1, SIGR(R7) 3 No, get sign 
A 1 E NOTRES_H ; Continue 
E6 § NEG_VAL_H 
51 51 OF 90 4 $s Z gxrev #05 #15, R1, R1 3 Reserved operand? 
3 No 
58 D 08 E 5 VL (FP), RB 3: Save handler address 
00009191" F Fe F § CALLS § : Reserved operand 
8 F 6 ° F CMPW (RO), #*x8000 3; Still reserved? 
3 ‘ FC 3 BNEQ AL_H 3; No, try again 
030A As BRW 0 : Yes, call it zero and quit 
1 0 5$ -WORD “M<> 
6D 0420'°CF — 01 ; 91 MOVAB ¥ACYT HANDLER, (FP) : Enable condition handler 
60 73FD 01 38 TSTH (RO) 3; Force reserved operand fault 
04 ; : + RET : Continue 
EB A? 01 CE : 32 Lh. nee. #1, SIGN(R7) 3; Set negative sign 
2 C C 11 38 - SUBL2 #LOCAL_FRAME, SP 3; ALLOCATE LOCAL DATA ON STACK 
E D 11 9 MOVL SP, ; SETUP POINTER TO LOCAL DATA AREA 
14 A8 51 00004000 8F C 11? + SUBL3 #*x4000, R1, BINEXP(R8) ; REMOVE EXCESS FROM EXPONENT 
11F 1 3; PICK UP H-FLOATING FRACTION AND STORE AS A LEFT 
11F § 3 NORMALIZED UNSIGNED 8 wig cae ses WITH THE BINARY 
BY Z 3; POINT BETWEEN BITS 32 & 31 OF 'BINNUM+12 
54 2A 1 9C O11F 5 ROTL #16, 2(RO), R4 3; GET BYTES #5,4,3,2; STORE 3,2,5.4 
33 $e A 10 9C 124 $ ROTL #16, g(RO} R3 : 8 8 2.6 STORE 7,6.9,8 
52 OAAO 10 9 9 ROTL #16, 10(ROS, R2 : GET 1$,12:11,10; STORE’ 11,10,13,12 
51 OE A C 1 MOVZWL 14(RO), R1 3 GET 2,2,15,14 
5151 8 C % ROTL #16, RI, RI 3 STORE 16124 2.2 
1 \ 3 DENORMALIZE BY 1 BIT TO INSERT 
\ é 17 3; THE HIDDEN BIT. THIS WILL LEAVE 15 GUARD BITS. 
1 1 EE Q1 15 EXTV #1, #32, R1, Seen er ) 
Of § 1 €€ 01 18 EXTV #1, #32, R2, BINNUM+4(R8) 
8 1 €E O14 1 EXTV #i, #32, R53, BINNURSE(R ) 
54 4 F 1 EF 14 + erry “i, @ R4, R 
OC AB 54 eeeeeey * F 6? 1e6 1 BISL #*x80 6000; R4, BINNUM+12(R8) ; AND SET HIDDEN BIT 
6 1 015 20 BRil BEGSRC 3 Now convert the value 


pe. 


Mm 6 
ees TN i a iC acco ee 


5$: -WORD “M<> 
MOVAB WEY MAMOLER, (FP) ; Enable condition handler 


7 -SBTTL OTSSSCVT_G_T_RB 
a 
g : JSB entry point 
OTSSSCVT_G_T_R8:: 
7; = MOUL” R1, R7 ; Use R7 as bas 
£4 A7 4 aan gtr vet ExP«R?) ; WNIT DECIMAL EXPONENT 
51 60 OC 8 . EXTV #4, #12, (RO), R1 3; Test ~~ zero and negative 
: BNEQ 108 ; Not z 
02A BR ZERO 3 Is sore. 
6 19 5 10$: BLSS g G_VAL_G 3; Negative? 
E8 A7 1 4 $ MOVL me Ne 3 No, set sign 
B 1 sak et BRB NO OfrE : Continue 
51 51 0B s 4 § r EXTZV #0. ni, R1, R1 : Reserved operand? 
0000018C ‘EF FB CALLS #0, 5$ : Reserved operand 
00000800 8F 60 OC . CMPZV «#4, #12, (RO), #°x800 =—sg still reserved? 
p BNEQ  TSfVAL_G ; try aga 
027F ip BRW ZERO ; Stitt Feserved, call it zero 
E 


6D 0420'CF 
6 


So 
us 
“ 
° 


4 fpre cores reeeenee operand fault 
E8 A? «60(01Ctsé#C# La ee. #1, SIGN(R7) 3; Set negative sign 
se "ROU? EEOCAGAFRMME. SP MOEA ADEA BMD Rt Sat anen 
14 AB 51 00000400 BF C SUBL3 #*X400, R1, BINEXP(R8) ; REMOVE EXCESS FROM EXPONENT 


; PICK UP_G-FLOATING FRACTION AND STORE AS A LEFT 
; NORMALIZED UNSIGNED 4- ONGWORD INTEGER WITH THE BINARY 
; POINT BETWEEN BITS 32 © 31 OF "BINNUM+12°° 


ROTL #16, (RO) 3; Get high fraction 
ROTL #16, 4(ROS, RR : Get low fraction 


3 DENORMALIZE bY 1 BIT TO INSERT 
; THE HIDDEN BIT. 


D1 
v1 
v1 
v1 
01 
01 
v1 
v1 
He 
D1 
01 
v1 

1 
D16A 
D1 
01 


OowwWwwwwwaw> oO OOOOOOOONN YS 
=OODNOU EW OO OONAUE WN OVOONOUS WN —O 


SIA AA AAA AA AAMT AE PPPPEP PEE 


os an BINNUM+0(R8) 3; Clear low order bits 
08 A8& 2g #0 1 EE EXTV esl. & Ae Re. Binenmes (RS) 
54 F 1 EF erizy 554 
OC AB OSG 80000000 9 BISL #1600 d600-” R4, _BINNUM+12(R8) AND SET HIDDEN BIT 
0 BRW 3 Now convert the value 


OTSSSCVTRT 


52 Go0gse 7° 
14 A 010° 
0 


mY 
if 
14 AB =0290'°C2 


14 A8 5 
52 00000014" SF 
DA 


51 ae ad F 
1 5 
52 1 2 


0256 
AO 


or 
= 
Oar 
AD 
ef 
oz 
<@e 
—— 


BEGSRC: MOVAW 
CMPW 


poflelelelelelelelol elelololol ele elo oloci a) 


ot et Ss SS SS SS = SS SS SY YY 1 SS Ss YS 1 YS SS 


RIP PIDRS tt BQO BR FM MMM MMMMMMMMMMNS SO OAMOOOOOOMOAOOOAQAOQAO 
COOVMIWD WWD DWWWID ONOOMNONOM OK MP VMMM OMANI DUI MmMmMmMmMmmMmmmmmmmmnrn 


Pe ot ot tt Naeem aaa 
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33 yA X/VMS Macro V04-00 Page 3 
TBRTL. SRE OTSCVTRT. MAR; 1 (7) 
; NOW SEARCH c POWER-OF -TEN TABLE TO FIND 
; NN ENTRY CLO wien HE VALUE STORED 
; IN BINEXP NNUM. THEN DIVIDE (OR RATHER 
: MULTIPLY BY rH RECIPROCAL) BINEXP & BINNUM 
: BY THAT TABLE ENTRY TO GET THE RESULTANT 
: FRACTION into THE RANGE : 
: 1.0 .GT. (FRACTION * 2** EXPONENT) .GE. 0.1 
; THE TABLE SEARCH IS BROKEN INTO THREE PIECES: THE 
; BIG NUMBER EXPONENTIAL SEARCH (STARTING | at BIGEXP), 
; THE SMALL NUMBER EXPONENTIA L SEARCH RTING AT 
: SMLEXP), AND THE MIDDLE NUMBER SEA RCH OF THE LINEAR 
; PORTION OF THE TABLE (STARTING AT SRCLIN). 
TM16, R2 ; GET 1ST ADR OF LINEAR TABLE 
I apenecR2). BINEXP(R8) : COMPARE WITH ENTRY'S BIN EXP 
ALEXP BRANCH FOR SMALL NUMBER S 
STi -1M16>+T_BEXP(R2), BINEXP(R8) 
; COMPARE WITH LAST LINEAR ENTRY 
SRCLIN ; BRANCH FOR LINEAR SEARCH 


; THE TWO SEARCHES WHICH FOLLOW (BIGEXP & SMLEXP) FIND 
; THE TABLE ENTRY CLOSEST TO THE NUMBER STORED IN 
; BINEXP(RS). THIS TABLE ENTRY IS USED TO DIVIDE (OR 
: MULTIPLY BY The RECIPROCAL) BINEXP & BINNUM, 
116, 8 R2 ; EXPONENTIAL SEARCH FOR BIG NUMBERS 
TSM : EXPONENTIAL SEARCH FOR SMALL NUMBERS 
1 =BENB(Re) : GET POWER-OF-2 FROM TABL E 
= my he : FOR LARGE, CALC: 1.5*ENT 
BIGEX® : XFER FOR BIG NUMS (Positive EXPONENT) 
f- Tat R1 ; FOR SMALL, CALC: .75%E 
Ri. RO F FORM 7S*ENTRY OR 1.5*ENTRY 
t RO NOW CONTAINS VALUE HALF WAY 
: BETW IS AND NE : 
RO BINEXP(RE) : IS THIS CLOSEST TABLE ENTRY? 
: IF YES, XFER 
#<T1-T0>, R2 : NO, GO LOOK AT NEXT ENTRY 
B1GEX1 
: FIN D THE RECIPROCAL TABLE EN ENTRY POINTED TO BY R2. 
: R2 CONTAINS THE BASE (TO) PLUS AN "INDEX''. THE 
+ RECIPROCAL ENTRY HAS AN ADR "TO-INDEX'’ WHICH 
+ IS CALCULATED BY He TOn CTOs INDEX) . OR 2*T0-R2. 
TO, R1 : gET BASE ADR 
R1, R1 3: et 
R2. R1, R2 : GET ADR OF RECIPROCAL ENTRY 
RMUL : YES, GO MUL BY RECIPROCAL 
BEGSRC : AND GO TRY AGAIN 


6 7 
TSSSCVTRT - Kernel Convert real (G and H) to text AX/VMS Macro V04-00 Page 1 
greys OTSSSCVT_G_T_R8 <* i 138 99: 7: ay LIBRTL.S REI TSCVTRT.MAR; 1 ” 8) 
—E 429 SRCLIN: 
—E 4 ; THE CONVERSION WILL TAKE erat FROM THE LINEAR (IN 
- 26m ; POWERS OF TEN) Re. 1 OF ‘ 
—E 4 ; The DECIMAL_EXPONENT = i" + LOG10(2) * (BIN_EXP = 1). Use this 
—E 4 3 spores mation to get ae ie probe into thé table. 
E 434 ; S approx may b small, but no more than that. 
E 435 3; The antes hes been Festee oxne atively over the 
—E 4 § 3; range -1 P oh and always works 
4 2 3 except for Bin: ore ~ oy hes a veertal code hack. 
oe er ol ete A oe eee pee 
$ = ac 
0990049) F Ge rk MULL2 iis R1 3 53 = 4096 * FCIOe 0(2) 
1 F4 BF 8 C t¢§ ASHL » RI, RI : REMOVE THE 409 OP ACTOR 
1 06 re rr INCL 3 FINAL +1 
51 eens: tacd a t3 445 SRCL1: MULL #<T1-TO>, R1 3; MUL BY SIZE OF TABLE ENTRY 
1 ¢O 4A $08 ADDL 3 GET INDEX*size+TM16 
52 00000140'8F CO 4p 44 ADDL2 #<fO-TM16>, R2 : GET INDEX*size+T0 
14 AB 0010"¢s 81 54 449 CMPW T_BEXP(R2), BINEXP(R8) ; COMPARE EXPONENTS 
2 14 0 2A $39 BGTR F OUND ; XFER IF ENTRY .GT. BINNUM 
5C t2§ ; THE NEXT INSTRUCTION IS COMMENTED OUT. IT CAN NOT XFER. 
5¢ 453; BLSS ; XFER IF ENTRY TOO SMALL 
OC AB OC A201 5¢ 454 CMPL 12(R2), BINNUM+12(R8) g COMPARE HIGH-ORDER FRACTION 
7 ik O5e3 ae BessU  SRALL 
08 AB OO *e D1 8 8 439 CMPL HC BINNUM+8(R8) 
Oe if ooee 288 BessU SMALL 
04 AB (04 A D1 026 460 CMPL acRD), BINNUM+4 (R8) 
1A 027 461 BGTRU FOUND 
1F 7 186 BLSSU sna. 
68 $ +H 44 rer bork O(R2), BINNUM+0(R8) 3; COMPARE LOW-ORDER FRACTION 
52 00000014'SF co 0 f ret SMALL: ADDL #<T1-TO>, R2 3; ADVANCE TO NEXT TABLE ITEM 
8 189 : FINAL CHECK FOR DEBUGGING. REMOVE THESE NEXT THREE 
4 $08 : INSTRUCTIONS AFTER ALL THE TESTING IS DONE. (OR 
2 H 3; LEAVE THEM IN=-= THEY DON'T REALLY HURT.) 
471; CMPW T_BEXP(R2), BINEXP(R8) ; FINAL SIZE CHECK 
128 : BGTR FOUND 
$f? : HALT ; BAD INDEX FORMULA 
50 00000707°EF 3E 475 FOUND: MOVAW 10, R 3; GET TABLE BASE ADR 
50 52 01 A $78 CMPL R2, R 
13 rif BEQL MULDUN 3; IF 0, DON'T MUL BY 1.0 
F 138 : Rei THE RECIPROCAL "UO) ENTRY ortee TO BY R2. 
F 480 : CONTAINS THE BASE ( Sonus tw INDEX''. THE 
F 481 : ECIPROCAL ENTRY HAS F ''TO-INDEX'’ WHICH 
: 2 § 3 3 CALCULATED BY Beton CTOs INDEX) . OR 2*T0-R2. 
28 23 C0 F 484 ADDL Ro. RB 3; 2*BASE 
52 C 2 485 SUBL R R R2 ; GET ADR OF RECIPROCAL ENTRY 


erm iARGee eve roel «5 ond me core NEEEISE MEAL GE ESCO SHES ABE wasn PHP Uy 


O1F9 38630 $596 89 BSBw RMUL 3 AND MULTIPLY BY RECIPROCAL 


t real (G and H) to ont a att 41 90:68:68 AX/VMS Ma 


v04-00 P 1 Ts 
-SEP- 0 madi? * 


TSSSCVTRT = Kernel Conv cr 
args OTSSSCVT_G_T LIBRTL.SRCJOTSCVTRT.MAR; 1 


10 AB 4 DIGLUP: CLRL INTC(R8) ; CLEAR FOR DIGITS LEFT OF BIN POINT 


3 MULTIPLY 4-LONG-WORDS BY 10**9, PROPOGATING CARRIES 
; ACROSS THE LONG-WORD BOUNDARIES. 


er 
RB 
489 MULDUN : BINEXP SHOULD NOW CONTAIN 0, <1, <2, OR -3. 
4 + SHIFT BINNUM RIGHT BY THAT NUMBER OF PLACES 
4 : IN ORDER TO REDUCE BINEXP TO ZERO, THUS 
4 : FINALLY FINISHING WITH THE BINARY EXPONENT 
3 493 + ROUND USING THE BITS SHIFTED OFF TO THE RIGHT 
50 14 ag cf 9 138 MNEGL BINEXP(RB), RO ; FIND BIT # FROM BINEXP 
3 90 496 BEGL  GETDIG : IF 0, SKIP RIGHT SHIFT 
51 50 01 C3 F 49 SUBL3. #1, RO, R1 : GET POS OF 1ST DISCARDED BIT 
51 68 03 4 EF he 199 EXTZV R1, #1, BINNUM+0(RB), R1 + GET 1ST DISCARDE BIT 
68 6 EE O0A ? EXTV RO, #32, BINNUM+0(R8), BINNUM+0(R8) 
04 A8 04 A EE OAD ; EXTV RO. #32. BINNUM+4(R8). BINNUM+4 (RB) 
7 aon a 10 A fF BB 4 ENRL 4 mateo ee ‘ XT EXTV WILL GET O'S HERE 
OC AB OC AB 20 50 EE O28 5 EXTV BON #32, BINNUM+12(R8), BINNUM+13(RBD 
¢ $ : CLRL BINEXP<RB) ; BINEXP NOW REDUCED TO ZERO 
68 51 CO 02 08 ADDL2 1, BINNUM+0(R8) ; ROUND WITH 1ST DISCARDED BIT 
04 A 0 oD C8 509 ADWC 40, BINNUM+4 (RB) 
08 A 0 OD cc 10 ADWC =: #0, BINNUM+8(R8) 
CA 0 »D 06 1 ADWC #0, BINNUM+12(R8) 
55 EC A? 00 02D4 ig GETDIG: MOVL_ STRING _ADDR(R7), RS : GET ADR FOR DIGIT STRING 
56 FOA? O01 C1 OoD8 51% ADDL3 #1, SIG DIGITS(A7), R6 : Number of digits wanted 
EO A? 01 bo DD 515 vCal OFFSET(R?) : Initial offset 
85 30 E 1 MOVE #*A/0/, (R5)+ : Start out with a zero 
E4518 : NOW mu. THE BINNUM FRACTION BY 10**9 IN ORDER TO 
£4 519 : FORCE 9 DIGITS TO THE LEFT OF THE DECIMAL POINT. 
E4 0 : THEN CONVERT THAT 9 DIGIT BINARY INTEGER TO A 
E4 1 + STRING FOR OUTPUT IN THE FINAL ANSWER. REPEAT 
Bs g : THE PROCESS UNTIL ENOUGH DIGITS ARE OUTPUT. 
E4 & .MACRO IMUL2 I, R, 2L 
E4 5 EMUL 1, R, #0, RO 
E4 6 TSTL OR 
£4 BGEQ Ss 
E4 : ADDL2 I, R1 
£4 L: mOVL RO, R 
E4 0 ADDL2 Ri, 44R 
E4 1 .ENDM IMUL 
E4 ; 
£4 
£7 4 
£7 S 
BF 338 
52. 3B9ACA00 BF 00 02E7 MOVL #1000000000, R2 : SETUP 10**9 
EE 
FE 40 MUL? R2, BINNUM+12(R8) 
41 IMUL2 Re, BINNUM+8(R8) 
10 a8 00 08 O31A 4g ADWC #0, INTCRB) 
: 4 IMUL2 R2, BINNUM+4(R8) 
o¢ ag 00 D 44 ADWC =: #0, BINNUM+12(R8) 
10 A D 8 545 ADWC 8=s-s #0... INT(RB) 


54 


py) 
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54 


1, Nal 


51 


51 


51 


51 


53 5 
FC9B CF 


51 10 ag 


51 00000064 4 

75 OFC F44 
51 00000064 22 
75 FC7A CF44 
51 00000064 8F 


F7 AS 


1 
75 FC69 CF44 
51 0000 8F 


00 
75_ FCS8 CF44 
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BE tess 
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Dd 
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co : 
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Occ 


ARNO DOQVNELSRNOOCDW NIN S UVMIQOOCOOOoOe phe het 


SOOM OSo 


Po 
2S 


10$: 


ROUND : 


IMUL2 
ADWC 


R2, BINNUM+ bt 
#Q, BINNUM+8(RS) 
#0, BINNUM+ 
#0, INTC(RB) 
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NVERT BINARY NUM NOW LEFT OF DECIMAL POINT INTO 


; CO 
; 5 PACKED DIGITS. 


#9, RS 


RS, R3 
ASCII_ZEROES, -9(R5) 


INT(R8), R1 

e 00, R1, R1, RG 
10$ 

TOyEC RSJ. =(R5) 
#\° » RI, RI, R4 
LapheCaes. =(R5) 
#100, R1, R1, R4 


Hoy ert =(R5) 
# » RI, R1, R4 


TABLECR4], =-(R5) 
aa 7, RI, =(R5) 
#9, R6 

ROUND 

DIGLUP 


R 
R6, RS 

#V" TRUNCATE 
DEC_EXP(R 


s 
$) 

wig 

R 

RO), #°a/9/ 
A 


R 
5 
R1 
R1 
RS 
=( 
20 
#*A/0/, (RO) 


FLAGS 
#V~ROUND RIGHT FL 
7), RT_RN 


aan 


$ 
« SIG_DIGITS(R7) 


R5 will store least signif digit 
(lsd) in the high order byte. 

save the old address 

In cig tse the string to contain 30's 
the 9th byte will be filled below 

R1/R2 must be a quadword for 
the EDIV 

extract two lsd 


load correct char rep of the 2 digits 
extract two lsd 


load correct char rep of the 2 digits 
extract two lsd 


load correct char rep of the 2 digits 
extract two lsd 


load correct char rep of the 2 digits 


; character rep needed for last number 
Move ate ing poloter up by 9, ie, 
; ADVAN guru STRING ADDRESS 


C 
more d 


; Loop for more? 
Yes 


30 

3; This routine rounds the value to the given number of significant 
3; digits, unless flag V_TRUNCATE is on. 
3 at the next digit. 


If so, the value is truncated 


Find least significant + 1 
N ; Truncate if desired 


I 
3; Round to right of dec pt? 
a1 : Yes, tind it ° 


Exit if round to zero 

Round to right of # sig digits? 
Yes use number of significant 
digits instead. 

Finish calculation 


; Get rune ng character address 


noon 

No, just finish 
Save gos} tton 

If this is a 9... 


Then it becomes a zero 


- 

TSSSCVTRT el Convert real (G and H) to text 16-SEP-1984 AX/VMS Macro V04-00 Page 14 
args orssscvt_go1 orSepr19be 19:78:83 EC Tate eaelorscures.mar;1 “2% {Sy 
F 11 F4 BRB 10 3; And we continue 

6S Fe 208: INCB (RO) 3; Else this is last cerry 
50 ECA f F SUBL2 STRING_ADDR(R7), RO 3 Do we need to change offset 
FC BGTR FINIS 3; No 
EO A 04 rf CLRL OF FSET(R7) 3; Yes, set new offset 
ES A D6 04 INCL DEC_EXP(R7) ; Set new exponent 
4 


ADDL2 #LOCAL FRAME. SP Restore stack pointer 
MOVL R7, R Restore frame pointer 
Return to caller 


27 
nm“ 
oc 
. 


MOVL STRING_ADDR(R7), tring address 
moves § #0 (SF) #°A/0/, PSIG. p1é1fstr ) 1) 3 fore fill string 
CLRO OFF st (RP) : Clea > beteak and exponent 

CLRL Sian ERY) | Piser sign 

MOVL R7, R1 : Restore frame pointer 

RSB ; Return to caller 


51 EC A? 0 
61 FOA7 30 6E e 


6 7 
2 al CVISRANDLER =" Local Condition handler ‘S-SEP-19B6 1:48:68 Etlante.sacsorscvrer.mars1 “°° 1d» 


-SBTTL CVT_HANDLER = Local condition handler 


“Oo 


+ 
+ 


CVT_HANDLER allows OTSSSCVT_G_T_R8 and OTSSSCVT_H_T_R8B to detect 
reserved operands using the TSTG and TSTH instructions, regardless of 
whether the processor supports those instructiuns. 


When a reserved operand is seen, a TSTG or a TSTH is executed with 
the reserved operand at (RO). it the processor knows 
ebout TSTG or STH, @ reserved operand fault is signaled. However, 
f it doesn’t support TSTG or TSTH, an “opcode reserved to Digital” 
bet f will occur. CVT_HANDLER turns this into a reserved operand 
au 


ae 


re 


If the condition yetn signaled is not SS$_OPCDEC or if the 
signaled instruction is not in the frame that established this 
handler shen the exception is resignaled. A test is made to 
see f (nO) is ; reserved operand. It 

will be on the initial fault, but might not be if it has been 
fixed up by another condition handler (i.e. LIBSFIXUP_FLT). 

If it is a reserved eperend. the signal name is changed to 
S$S$_ROPRAND ong the exception is resignaled. Otherwise 
execution continues with the instruction following the fStx. 


, ak ek eae 
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CVT_HANDLER: 
0004 04 -WORD “M<R2> 
30 % A 4 MOVL 4(AP), RO 3_signal argument List 
0000043C 8F A ) CMPL CHFSL_SIG_NAME(RO), #SS$_OPCDEC ; Opcode reserved to Digital fault? 
3 1 BNEQ RESIGRAL 3; No, resignal 
51 8 AC OD MOVL BC(AP), R1 ; mechanism argument List 
Al OD TSTL CHFSL_MCH_DEPTH(R1) : Is depth zero? 
ef 1 BNEQ RESIGRA > If not, can't be this routine 
52 60 C SUBL3# CHE _SIG_ARGS(RO), R2 ; Get position of PC 
52 604g OF ROVAL (RO) CR2)-R ; R2"has position of PC 
73FD 8F . Fh 2 Hay orne). @*x75FD 3 zolwe 
: Yes 
00000800 8F 0C B1 OC f 4 CMPZV #4, #12, @CHFSL_MCH_SAVRO(R1), #*x800 =; G reserved operand? 
if BNEQ CONTINUE ; No, continue execution 
8000 8F OC Bi # 108: CMPW @CHFSL_MCH_SAVRO(R1), #*x8000 ; H reserved qoerendt 
1 3 BNEQ 3; No Sort tinue execution 
04 AO 00000454 BF oD , 208; nove #SS$_ROPRAND, CHFSL_SIG_NAME(RO) ; Change condition code name 
50 00000918 &F 00 g nove #SS$_RESIGNAL, RO : Resignal exception 
CONT INUE : 
51 69 61 3 7 SUBL sy. CHFSL_SIG_ARGS(RO), R1 ; Get position of PC 
6 s 6S 7 ADOL #3, (R2) ; Add length of TSTG or TSTH 
3; to instruction PC, causing 
7 3 next instruction to be executed. 
50 6«(01 B0 nove #SS$_CONTINUE, RO ; Continue execution 
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.SBTTL OTSSSRET_A_CVT_TAB_R1 


3;* 
3; JSB entry point 


OTSSSRET_A ct _TAB_R 
ROTAL Orsssa: CVT_TAB, RO 


AX/VAS Mf v04 


LIBRTL. sre 
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Page 1¢, 


jors SCVTRT.MAR;1 a 


Return ye fey of this table 
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ease ait 


UL SCOTT (6 ant 0 ob cone NEARS MEST RE MNO SeTE NOAH nis 8%" ll 
: all seis cat yc nett ‘AU a i 
THABLE *BINEXP & BINNUM 


arta th xp mt 
wl 4th He TRE ie, 
BIN vt NNUA, D DECEXP IS UPDATED WITH THE 


POWER N VALUE 
THIS ROUTINE CLOBBERS RO-R1, R3-R6. 


OTSSSCVT_MUL:: 
RAUL : ; ENTRY POINT 


1 
18 4 | CLRL = PRODF-4(R8) ; INIT PRODUCT 
iC C 1 CLRG = PRODF+0(R 
26 7¢ Hs CLRQ = PRODF+B(RB) 
Cas 7C 1 CLRQ = CRY#O(R : CLEAR CARRIES 
ee i ee ee 
91 at ; THIS MACRO HAS THE FUNCTION R=AsB, WITH THE CARRIES 
91 0 : GOING INTO THE 4 L-WORDS AT CRY. A AND B ARE 
91 721 : UNSIGNED “WORDS. R IS AN UNSIGNED DOUBLE LONG 
9 «7 2 : REMOVING THIS MACRO DEFINITION (WHICH IS ONLY USED 
31 , ; : AND EXPANDING THE CODE WHERE IT IS USED, OBSCURES THE FUNCTION. 
91 725 .MACRO LMUL A, B, R, 2L1, 2L2, 2L3 
91 re MOVL ’ A, RO : Get first _operand 
91 7 BEQL Ls : Skip if z 
91 7 } MOVL R1 ; Get second “operand 
91 7 BEQL tf t Skip i 
91 730 EMUL R R1, #0, RO : FORM PRODUCT OF A AND B 
91 731 TSTL 
91 f 3 BGEG fe 
91 ADDL2 6, R1 : IF A<O, FIXUP FOR NEG SIGN 
91 734 L1: TSTL 6B 
91 735 GEG SsidL2 
91 , ADDL2 A, R1 ; IF B<O, FIXUP FOR NEG SIGN 
91 L2: ADDL2 RO, R $ ADD LOW PRODUCT INTO RESULT 
91 7 ADWC = R1. GAR + ADD HI PRODUCT INTO RESULT 
31 4 ADWC =—-« #0... CRY*#8-PRODF +R : AND SAVE CARRIES 
f .ENDM LMUL 
1 7% ; THE FOLLOWING LOOP FORMS ALL THE CROSS-PRODUCTS 
91 746 ; REQUIRED FOR A 4=LONG-WORD BY 4-LONG-WORD MULTIPLY. 
91 745 3 ONLY THE HIGH 4 LONG-WORDS ARE ACCUMULATED. THE BYTE 
91 46 ; TABLE AT "BYTAB" SHOWS THE INDICIES USED FOR THE 
91 7% 3 “WORD OPERANDS AND THE RESULTING DOUBLE-LONG- 
i 4 + WORD PRODUCTS. 
53 FB'EF 1 MOVAW BYTAB. R : INIT eyTe TABLE INDEX 
4 83 98 BYTLUP: CVTBL (R3)+, R : SETUP 1ST INDEX 
A 1 98 j BLSS YTOU ; AND TEST FOR END 
5 : 3 90 CVIBL —(RS)¢, RS : SETUP 2ND INDEX 
é Ad 4 CVTBL (RB) 4. : SETUP 3RD INDEX 


i= 


2 a arStunth Sonuerhageat (6 and rere SEP=HPEE OOSRESRE YAS aes SrSevint.nans1 "#* (18, 


A 5 
a é LAUL BINNUM CRB) RAI, O(R2)CR5J, PRODF_4(RB)CR6I 
cq) 11 p RB YTLUP 3 LOOP 
D BYTDUN 
D ; INCL RY+O(RB) : SMALL EXTRA FUDGE 
ie C D ADoL2 RY+ (R , ; PRODe Sete ) + PUT CARRIES INTO SUM 
D Df ADW CRY44( RB) 
D ADWC CRY eB h PRODF +8(R8) 
D 6 4 ADwC 3s CRY* Ue PRODFS15¢RB) 
51 os as 01 rag EB EXTZV #31, #1, PRODF+12(R8), R1 : GET NORMALIZE BIT 
Fy 8 : NORMALIZED OPERANDS CANNOT PRODUCE A RESULT 
Fi ; UN-NORMALIZED BY MORE THAN ONE BIT POSITION. SO 
Fi f p ; IF NORM_BIT=1, SHIFT LEFT BY 
Ft f ; IF NORM~BIT=0, SHIFT LEFT BY 1 AND SUB 1 FROM EXP 
03 12 FY i$ BNEQ NOSUBI : XFER IF NORM =1 
14 D F ae DECL BINEXP(R8) ; NORM_BIT = 0; Pile. 1 FROM EXPONENT 
F 176 ; MOVE THE PRODUCT FROM PRODF TO BINNUM, NORMALIZING 
F v7 : IT ONE BIT POSITION IF REQUIRED. 
51 1 CO F 79 NOSUB1: ADDL2 #31, R1 : DO EXTV'S FROM BIT 31 OR 32 
18 1 €& O4F9 781 EXTV R1, #32, PRODF-4(R8), BINNUM+0(RB) ; SHIFT LEFT 0 OR 1 BIT 
1¢ 1 EE O4FF 7 : EXTV 1. ! * PRODF+0(R8). BINNUM+4 (RB) 
é a 06 7 EXTV R1. #32. PRODF+4(R8). BINNUM+8(RB) 
c 4 1 €€ Op g 4 EXTV RI, ; ; PRODF+8(R8), BINNUM+12(R8) 
51 0010°¢2 32 “. 6 CVTWL = T_BEXP(R2) : EXTRACT BINARY EXPONENT 
14 c 19 7 ADDLe = XT, SINexp tre) ; ADD EXPONENTS FOR MUL 
1D ; 3 : WHEN CONVERTING FROM REAL TO TEXT: 
iD 7 : THE BINARY ENT MOVES TOWARD ZERO WHILE THE 
1D «791 + DECIMAL EX ENT MOVES AWAY FROM ZERO BY AN 
1D 19 : ABOUT EQUAL TO LOG(BIN EXP). 
1D 79 : WHEN CONVERTING FROM TEXT TO REAL: 
1D 194 : THE DECIMAL EXPONENT MOVES TOWARDS ZERO WHIL THE 
1p 795 $ BINARY EXPONENT MOVES AWAY FROM ZERO. 
51 0012"¢2 z 1 38 CVTWL  T_DEXP(R2), R1 : GET EQUIVALENT DECIMAL EXPONENT 
E4 A C 9 SUBL2 RT, DEC_EXP(R7) : AND SUB IT FROM RESULT EXP 
05 800 RSB : RETURN 
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-MACRO NUMBER Al, AZ, AS, A4, AS, AG, 


a7 
«LONG *x'A +ccex! xrage- =31>61>, *K'AG, *K'AS, *K'A2 
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“WORD “D<Al>, 
; THIS MACRO CREATES A TABLE ENTRY OF THE FOLLOWING FORM: 

“LONG ¢ LEAST SIG BITS> : 0(R2) 

ane © ewteunke : (Rd) 

ee S saneants 5 i (Ro) 

-LONG < MOST SIG BITS >: —_12(R2) 

WORD < BINARY EXP > :T_BEXP(R2) 

“WORD < DECIMAL EXP > :TIDEXP(R2) 
THE BINARY EXPONENT IS BYTES 16-17 OF EACH TABLE ENTRY 

THE DECIMAL EXPONENT IS BYTES 18-19 


VALUE = FRACTION * 2**PQWER_OF_2 = 10**POWER_OF_10 


THE HEX FRACTION IS STORED AS A 4 LONG-WORD UNSIGNED INTEGER, 
LEFT NORMALIZED, WITH THE BINARY POINT LEFT OF BIT 31 
OF THE MOST SIGNIFICANT LONG-WORD. 


THE FRACTION I ANTEED goenec? FOR THE FOUR HIGH-ORDER 


I 
S GUAR 
LONG-WORDS. ABOUT 16 B 
BE IN ERROR. THE CHECK line” AT THE BOTTOM OF THE TABLE IS 
TH WP cee AND LAST TABLE ENTRIES. IT WOULD 


THE PRODUCT OF 
EQUAL EXACTLY 1.0 VERY BIT OF THE 5 LONG-WORDS WERE CORRECT. 


DECIMAL, = —--"~a 5 LONG-WORD HEX FRACTION----------- >, DECIMAL 
POWER .< NN LSB-->; POWER 
OF 10 


2 amen nae a a 
mUmBER E401 °4 i mt 0:47 hbo ae gee 
a ae ne 
Ser ne 
= i oe. 
NUMBER -85,F AE, -sABSDDBD, ° 4, °- 
ee eee ERR ERE: 3 
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PSECT name Allocation PSECT No. Attributes 


- ABS . 4 -} 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 0000 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
~OTSSCODE 2330. 2¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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Phase Page faults cPU Time Elapsed Time 


Initialization 03 


—e - processing 


17 
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s 1 
Syabol table sort 


wed, table output 

Psect synopsis output 
Cross-reference output 
Assembler run totals 556 


The The yorking eet Limit was 1200 pages. 
38880 bytes_(76 pages) of virtual memory were used to but ier he intermediate code. 
there vere 30 pages of symbol table space olyecated to hold 482 non-local and 19 local symbols. 
source lines were read in Pass 1, producing 15 object records in Pass 2. 
13 pages of virtual memory were used to define 11 macros. 
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; Macro Library statistics H 


Macro Library name Macros defined 


“$255$DUA28: CSYSLIBJSTARLET. MLB;2 $ 
486 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTRT/OBJ=OBJ$:OTSCVTRT MSRC$:OTSCVTRT/UPDATE=(ENHS$:OTSCVTRT) 
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